home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
Borland
/
Borland C++ V5.02
/
SAMPLE.PAK
/
TESTDLL.DLL
/
RCDATA
/
TFORM3
/
TFORM3.txt
Wrap
Text File
|
1997-05-06
|
6KB
|
289 lines
object Form3: TForm3
Left = 447
Top = 179
ActiveControl = Panel1
BorderStyle = bsNone
Caption = 'Form3'
ClientHeight = 327
ClientWidth = 427
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Visible = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 427
Height = 41
Align = alTop
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 8
Top = 8
Width = 240
Height = 25
DataSource = DataSource1
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 427
Height = 286
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object ScrollBox: TScrollBox
Left = 6
Top = 6
Width = 415
Height = 274
HorzScrollBar.Margin = 6
HorzScrollBar.Range = 300
VertScrollBar.Margin = 6
VertScrollBar.Range = 236
Align = alClient
AutoScroll = False
BorderStyle = bsNone
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 6
Width = 29
Height = 13
Caption = 'SiteID'
FocusControl = EditSiteID
end
object Label2: TLabel
Left = 77
Top = 6
Width = 18
Height = 13
Caption = 'Site'
FocusControl = EditSite
end
object Label3: TLabel
Left = 6
Top = 44
Width = 41
Height = 13
Caption = 'Location'
FocusControl = EditLocation
end
object Label4: TLabel
Left = 177
Top = 44
Width = 29
Height = 13
Caption = 'When'
FocusControl = EditWhen
end
object Label5: TLabel
Left = 6
Top = 82
Width = 30
Height = 13
Caption = 'Airport'
FocusControl = EditAirport
end
object Label6: TLabel
Left = 127
Top = 82
Width = 65
Height = 13
Caption = 'Tourism Peak'
FocusControl = EditTourismPeak
end
object Label8: TLabel
Left = 6
Top = 120
Width = 53
Height = 13
Caption = 'Description'
FocusControl = EditDescription
end
object Label9: TLabel
Left = 6
Top = 158
Width = 37
Height = 13
Caption = 'Contact'
FocusControl = EditContact
end
object Label10: TLabel
Left = 6
Top = 196
Width = 31
Height = 13
Caption = 'Phone'
FocusControl = EditPhone
end
object Label11: TLabel
Left = 280
Top = 88
Width = 29
Height = 13
Caption = 'Image'
FocusControl = DBImage1
end
object EditSiteID: TDBEdit
Left = 6
Top = 21
Width = 65
Height = 20
DataField = 'SiteID'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object EditSite: TDBEdit
Left = 77
Top = 21
Width = 165
Height = 20
DataField = 'Site'
DataSource = DataSource1
MaxLength = 0
TabOrder = 1
end
object EditLocation: TDBEdit
Left = 6
Top = 59
Width = 165
Height = 20
DataField = 'Location'
DataSource = DataSource1
MaxLength = 0
TabOrder = 2
end
object EditWhen: TDBEdit
Left = 177
Top = 59
Width = 90
Height = 20
DataField = 'When'
DataSource = DataSource1
MaxLength = 0
TabOrder = 3
end
object EditAirport: TDBEdit
Left = 6
Top = 97
Width = 115
Height = 20
DataField = 'Airport'
DataSource = DataSource1
MaxLength = 0
TabOrder = 4
end
object EditTourismPeak: TDBEdit
Left = 127
Top = 97
Width = 115
Height = 20
DataField = 'Tourism Peak'
DataSource = DataSource1
MaxLength = 0
TabOrder = 5
end
object EditDescription: TDBEdit
Left = 6
Top = 135
Width = 235
Height = 20
DataField = 'Description'
DataSource = DataSource1
MaxLength = 0
TabOrder = 6
end
object EditContact: TDBEdit
Left = 6
Top = 173
Width = 215
Height = 20
DataField = 'Contact'
DataSource = DataSource1
MaxLength = 0
TabOrder = 7
end
object EditPhone: TDBEdit
Left = 6
Top = 211
Width = 115
Height = 20
DataField = 'Phone'
DataSource = DataSource1
MaxLength = 0
TabOrder = 8
end
object DBImage1: TDBImage
Left = 280
Top = 104
Width = 105
Height = 105
DataField = 'Image'
DataSource = DataSource1
TabOrder = 9
end
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 287
Top = 5
end
object Table1: TTable
DatabaseName = '..\data'
TableName = 'SITES.DB'
Left = 259
Top = 5
object Table1SiteID: TFloatField
FieldName = 'SiteID'
end
object Table1Site: TStringField
FieldName = 'Site'
Size = 30
end
object Table1Location: TStringField
FieldName = 'Location'
Size = 30
end
object Table1When: TStringField
FieldName = 'When'
Size = 15
end
object Table1Airport: TStringField
FieldName = 'Airport'
end
object Table1TourismPeak: TStringField
FieldName = 'Tourism Peak'
end
object Table1Image: TGraphicField
FieldName = 'Image'
BlobType = ftGraphic
end
object Table1Description: TMemoField
FieldName = 'Description'
BlobType = ftMemo
Size = 200
end
object Table1Contact: TStringField
FieldName = 'Contact'
Size = 40
end
object Table1Phone: TStringField
FieldName = 'Phone'
end
end
end